home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #5 / Commodore_Disk_User_Vol.4_5_1991_-.d64 / the ti challenge (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  631 b   |  18 lines
  1. 10 poke53280,5:poke53281,11:print"[147]       [212][200][197] [212][197][195][200][206][207] [201][206][198][207] [195][200][193][204][204][197][206][199][197]"
  2. 20 print"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  3. 30 print"   [159][212]his month: [158][208]rime [206]umber [193]nalysis"
  4. 40 print,"[153][157][157][157] [208]ress [210][197][212][213][210][206] to see what",," you have to beat!"
  5. 50 geta$:ifa$<>chr$(13)then50
  6. 60 print"[145][145]     [212]ime elapsed:              ","     [208]rime [206]umber:          [145][145][145][145]"
  7. 70 print"[150]     [215]orking..."
  8. 80 :
  9. 90 :
  10. 100 ti$="000000":clr:dimb%(10000):forn=0to10000:ifb%(n)=1then130
  11. 110 print,,int(ti/.6+.5)/100"[157] seconds   ":print,,2*n+3"[145][145]"
  12. 120 if3*n+3<=10000thenfork=3*n+3to10000step2*n+3:b%(k)=1:next
  13. 130 next
  14. 140 :
  15. 150 :
  16. 160 print"     [195]an you beat it?????[152]"
  17. 170 poke631,152:poke632,145:poke633,210:poke634,17:poke635,157:poke198,5:end
  18.